inherited FRotinasAtualizaInventario: TFRotinasAtualizaInventario
  Left = 613
  Top = 257
  Height = 350
  Caption = 'Atualiza Estoque'
  Constraints.MaxHeight = 400
  Constraints.MinHeight = 350
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  inherited panel2: TPanel
    inherited BtnExec: TBitBtn
      OnClick = BtnExecClick
    end
  end
  inherited pnBg: TPanel
    Height = 281
    object Label5: TLabel
      Left = 14
      Top = 91
      Width = 77
      Height = 16
      Caption = 'Apontamento'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 15
      Top = 4
      Width = 52
      Height = 16
      Caption = 'Empresa'
    end
    object Label6: TLabel
      Left = 16
      Top = 44
      Width = 31
      Height = 16
      Caption = 'Local'
    end
    object RgSubstAjust: TRadioGroup
      Left = 126
      Top = 91
      Width = 320
      Height = 41
      Caption = '  Procedimento '
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Ajustes'
        'Saldo Inicial')
      TabOrder = 1
      OnClick = RgSubstAjustClick
    end
    object DEDataApontamento: TDateEdit
      Left = 14
      Top = 110
      Width = 100
      Height = 22
      NumGlyphs = 2
      TabOrder = 0
    end
    object GroupBox1: TGroupBox
      Left = 14
      Top = 140
      Width = 433
      Height = 128
      Caption = ' Tipo de Movimenta'#231#227'o do Estoque  '
      TabOrder = 2
      object Label1: TLabel
        Left = 16
        Top = 32
        Width = 74
        Height = 16
        Caption = 'Saldo Inicial:'
      end
      object Label2: TLabel
        Left = 16
        Top = 59
        Width = 90
        Height = 16
        Caption = 'Ajuste Entrada:'
      end
      object Label3: TLabel
        Left = 16
        Top = 88
        Width = 78
        Height = 16
        Caption = 'Ajuste Saida:'
      end
      object dblEntrada: TDBLookupComboBox
        Left = 120
        Top = 56
        Width = 297
        Height = 22
        KeyField = 'TIPMOVEST_CODIGO'
        ListField = 'TIPMOVEST_DESCRICAO'
        ListSource = dsTipoMovimento
        TabOrder = 0
        OnEnter = dblEntradaEnter
        OnKeyDown = dblEntradaKeyDown
      end
      object dblSaida: TDBLookupComboBox
        Left = 120
        Top = 88
        Width = 297
        Height = 22
        KeyField = 'TIPMOVEST_CODIGO'
        ListField = 'TIPMOVEST_DESCRICAO'
        ListSource = dsTipoMovimento
        TabOrder = 1
        OnEnter = dblSaidaEnter
        OnKeyDown = dblEntradaKeyDown
      end
      object dblInventario: TDBLookupComboBox
        Left = 120
        Top = 24
        Width = 297
        Height = 22
        KeyField = 'TIPMOVEST_CODIGO'
        ListField = 'TIPMOVEST_DESCRICAO'
        ListSource = dsTipoMovimento
        TabOrder = 2
        OnEnter = dblEntradaEnter
        OnKeyDown = dblEntradaKeyDown
      end
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 16
      Top = 61
      Width = 265
      Height = 22
      KeyField = 'LOC_CODIGO'
      ListField = 'LOC_DESCRICAO'
      ListSource = DSLocal
      TabOrder = 3
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 16
      Top = 22
      Width = 433
      Height = 22
      KeyField = 'EMP_CODIGO'
      ListField = 'EMP_FANTASIA'
      ListSource = DSEmpresa
      TabOrder = 4
    end
  end
  object QInventario: TQuery
    DatabaseName = 'base'
    Left = 496
    Top = 248
  end
  object DataSource1: TDataSource
    DataSet = QInventario
    Left = 528
    Top = 248
  end
  object dsTipoMovimento: TDataSource
    DataSet = DMGestao.QTipoMovimentoEstoque
    Left = 496
    Top = 216
  end
  object dsCadastro: TDataSource
    AutoEdit = False
    DataSet = cdsCadastro
    Left = 496
    Top = 64
  end
  object QCadastro: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from Movimentoestoque')
    Left = 496
    Top = 104
  end
  object dspCadastro: TDataSetProvider
    DataSet = QCadastro
    Left = 496
    Top = 144
  end
  object cdsCadastro: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastro'
    AfterOpen = cdsCadastroAfterOpen
    Left = 496
    Top = 184
    object cdsCadastroMOVEST_CODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'MOVEST_CODIGO'
    end
    object cdsCadastroMOVEST_DATALANCAMENTO: TDateTimeField
      DisplayLabel = 'Data'
      FieldName = 'MOVEST_DATALANCAMENTO'
    end
    object cdsCadastroMOVEST_LOCAL: TIntegerField
      DisplayLabel = 'Local'
      FieldName = 'MOVEST_LOCAL'
    end
    object cdsCadastroMOVEST_TIPOMOVIMENTO: TIntegerField
      DisplayLabel = 'Tipo Movimento'
      FieldName = 'MOVEST_TIPOMOVIMENTO'
    end
    object cdsCadastroMOVEST_PEDIDO: TIntegerField
      DisplayLabel = 'Pedido'
      FieldName = 'MOVEST_PEDIDO'
    end
    object cdsCadastroMOVEST_DOCUMENTO: TStringField
      DisplayLabel = 'Cocumento'
      FieldName = 'MOVEST_DOCUMENTO'
      Size = 10
    end
    object cdsCadastroMOVEST_DATADOCUMENTO: TDateTimeField
      DisplayLabel = 'Data Docto'
      FieldName = 'MOVEST_DATADOCUMENTO'
    end
    object cdsCadastroMOVEST_FORNECEDOR: TIntegerField
      DisplayLabel = 'Fornecedor'
      FieldName = 'MOVEST_FORNECEDOR'
    end
    object cdsCadastroMOVEST_OS: TIntegerField
      FieldName = 'MOVEST_OS'
    end
    object cdsCadastroMOVEST_NF: TIntegerField
      FieldName = 'MOVEST_NF'
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroMOVEST_CENTROCUSTO: TIntegerField
      FieldName = 'MOVEST_CENTROCUSTO'
    end
    object cdsCadastroMOVEST_TRANSFERENCIAESTOQUE: TIntegerField
      FieldName = 'MOVEST_TRANSFERENCIAESTOQUE'
    end
    object cdsCadastroMOVEST_ORIGEM: TStringField
      FieldName = 'MOVEST_ORIGEM'
      Size = 50
    end
    object cdsCadastroMOVEST_CODIGO_ORIGEM: TIntegerField
      FieldName = 'MOVEST_CODIGO_ORIGEM'
    end
    object cdsCadastroMOVEST_OBS: TStringField
      FieldName = 'MOVEST_OBS'
      Size = 255
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroMOVEST_DATA_PROC: TDateTimeField
      FieldName = 'MOVEST_DATA_PROC'
    end
    object cdsCadastroMOVEST_LOTE_ATUALIZADO: TStringField
      FieldName = 'MOVEST_LOTE_ATUALIZADO'
      FixedChar = True
      Size = 1
    end
  end
  object cdsItensMovEst: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'ITENSMOVEST_MOVIMENTOESTOQUE'
    MasterFields = 'MOVEST_CODIGO'
    MasterSource = dsCadastro
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspItensMovEst'
    Left = 528
    Top = 184
    object cdsItensMovEstITENSMOVEST_CODIGO: TIntegerField
      FieldName = 'ITENSMOVEST_CODIGO'
    end
    object cdsItensMovEstITENSMOVEST_MOVIMENTOESTOQUE: TIntegerField
      FieldName = 'ITENSMOVEST_MOVIMENTOESTOQUE'
    end
    object cdsItensMovEstITENSMOVEST_PRODUTO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'ITENSMOVEST_PRODUTO'
    end
    object cdsItensMovEstITENSMOVEST_QUANTIDADE: TFloatField
      DisplayLabel = 'Quant.'
      FieldName = 'ITENSMOVEST_QUANTIDADE'
    end
    object cdsItensMovEstITENSMOVEST_VALORI: TFloatField
      DisplayLabel = 'Valor Unit.'
      FieldName = 'ITENSMOVEST_VALORI'
      DisplayFormat = '#,##0.00'
    end
    object cdsItensMovEstITENSMOVEST_VALORC: TFloatField
      FieldName = 'ITENSMOVEST_VALORC'
    end
    object cdsItensMovEstITENSMOVEST_QTDESTANTGERAL: TFloatField
      FieldName = 'ITENSMOVEST_QTDESTANTGERAL'
    end
    object cdsItensMovEstITENSMOVEST_QTDESTANTLOCAL: TFloatField
      FieldName = 'ITENSMOVEST_QTDESTANTLOCAL'
    end
    object cdsItensMovEstITENSMOVEST_CUSTOMEDIOUNITANT: TFloatField
      FieldName = 'ITENSMOVEST_CUSTOMEDIOUNITANT'
    end
    object cdsItensMovEstITENSMOVEST_LOCAL: TIntegerField
      FieldName = 'ITENSMOVEST_LOCAL'
    end
    object cdsItensMovEstUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsItensMovEstUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsItensMovEstUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsItensMovEstDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsItensMovEstDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsItensMovEstDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsItensMovEstEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsItensMovEstPROD_DESC: TStringField
      DisplayLabel = 'Descri'#231#227'o (Entrada)'
      FieldKind = fkLookup
      FieldName = 'PROD_DESC'
      LookupDataSet = DMGestao.QProdutoEnt
      LookupKeyFields = 'PROD_CODIGO'
      LookupResultField = 'PROD_DESCRICAOENT'
      KeyFields = 'ITENSMOVEST_PRODUTO'
      Size = 40
      Lookup = True
    end
    object cdsItensMovEstLOCAL_DESC: TStringField
      DisplayLabel = 'Local'
      FieldKind = fkLookup
      FieldName = 'LOCAL_DESC'
      LookupDataSet = DMGestao.QLocal
      LookupKeyFields = 'LOC_CODIGO'
      LookupResultField = 'LOC_DESCRICAO'
      KeyFields = 'ITENSMOVEST_LOCAL'
      Size = 30
      Lookup = True
    end
    object cdsItensMovEstITENS_MOVEST_OBS: TStringField
      FieldName = 'ITENS_MOVEST_OBS'
      Size = 200
    end
  end
  object dspItensMovEst: TDataSetProvider
    DataSet = QItensMovEst
    Left = 528
    Top = 144
  end
  object QItensMovEst: TQuery
    DatabaseName = 'base'
    DataSource = dsCadastro
    SQL.Strings = (
      'SELECT *'
      'FROM'
      '  ITENSMOVIMENTOESTOQUE'
      'WHERE'
      
        '  ITENSMOVIMENTOESTOQUE.ITENSMOVEST_MOVIMENTOESTOQUE = :MOVEST_C' +
        'ODIGO')
    Left = 528
    Top = 104
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ITENSMOVEST_MOVIMENTOESTOQUE'
        ParamType = ptUnknown
        Value = 2
      end>
  end
  object dsItensMovEst: TDataSource
    AutoEdit = False
    DataSet = cdsItensMovEst
    Left = 528
    Top = 64
  end
  object DSLocal: TDataSource
    DataSet = DMGestao.QLocal
    Left = 336
    Top = 56
  end
  object DSEmpresa: TDataSource
    DataSet = DMGestao.QEmpresa
    Left = 344
    Top = 88
  end
end
